home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / Software / Vyzkuste / xsetup / _SETUP.2 / Group3 / XQ Gku 2.xpl < prev    next >
Text File  |  1999-09-15  |  2KB  |  84 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="1"
  3. "COUNT"="2"
  4. "UIPATH"="Internet\Instant Messaging\Gku"
  5. "NAME"="Proxy Settings"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="2.04"
  8. "TEXT 1"="Proxy URL"
  9. "TEXT 2"="Proxy Port"
  10. "DESCRIPTION 1"="You can use this plug-in to change the proxy server to be used with Gku. To disable the proxy server, clear both fields."
  11. "DESCRIPTION 2"="NOTE: Gku currently requires a proxy server. We suggest looking at http://freebooks.hypermart.net/proxy/proxies.htm for a list of free proxy servers you can use."
  12. "DESCRIPTION 3"="Gku may be obtained at http://lockergnome.virtualave.net"
  13. "AUTHOR"="Xteq Systems"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  16. "COMMENT 2"="Thanks to CptSiskoX for the settings and the idea."
  17. "COMMENT 3"="Thanks also to Vex, the maker of Gku."
  18.  
  19. sFile=""
  20. sSec="Connection"
  21.  
  22. sV1="ProxyServer"
  23. sV2="ProxyServerPort"
  24.  
  25. Sub GetGKUFile
  26.    s=iniReadValue("WIN.INI","GKU","InstallDir")
  27.    sFile=s & "\gku.ini"
  28. End Sub
  29.  
  30. Sub Plugin_Initialize 
  31.  Call GetGkuFile
  32.  
  33.  If FileExists(sFile) then
  34.  
  35.     s=iniReadValue(sFile,sSec,sV1)
  36.     SetUiElement 1,s
  37.  
  38.     s=iniReadValue(sFile,sSec,sV2)
  39.     SetUiElement 2,s
  40.  
  41.  else
  42.     Call Disable()
  43.  End if
  44.  
  45. End Sub
  46.  
  47.  
  48. Sub Plugin_CheckData(ElementIndex)
  49. End Sub
  50.  
  51.  
  52.  
  53. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  54.  bOK=False
  55.  
  56.  s=GetUIElement(2)
  57.  if len(S)>0 then
  58.     if IsNumeric(s)=false then
  59.        Call MsgError("Please enter a number into the field PORT!")
  60.     else
  61.        bOK=True
  62.     end if
  63.  else
  64.     bOK=true
  65.  end if
  66.  
  67.  
  68.  
  69.  if bOK=true then
  70.     s=GetUIElement(1)
  71.     Call iniWriteValue(sFile,sSec,sV1,s)
  72.  
  73.     s=GetUIElement(2)
  74.     Call iniWriteValue(sFile,sSec,sV2,s)
  75.  end if
  76. End Sub
  77.  
  78.  
  79. Sub Plugin_Terminate 
  80. End Sub
  81.  
  82.  
  83.  
  84.